home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 20 / 64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64 / listing 19 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  450b  |  27 lines
  1. 10 printchr$(147):poke 53280,5:poke 53281,6
  2. 20 v=53248:poke v+34,3
  3. 30 poke 53269,4:poke 2042,13
  4. 40 for n=0 to 62:read q:poke 832+n,q:next
  5. 100 data 255,255,255
  6. 101 data 128,0,1
  7. 102 data 128,0,1
  8. 103 data 128,0,1
  9. 104 data 144,0,1
  10. 105 data 144,0,1
  11. 106 data 144,0,1
  12. 107 data 144,0,1
  13. 108 data 144,0,1
  14. 109 data 144,0,1
  15. 110 data 144,0,1
  16. 111 data 144,0,1
  17. 112 data 144,0,1
  18. 113 data 144,0,1
  19. 114 data 128,0,1
  20. 115 data 128,0,1
  21. 116 data 128,0,1
  22. 117 data 128,0,1
  23. 118 data 128,0,1
  24. 119 data 128,0,1
  25. 120 data 255,255,255
  26. 200 x=200:y=100:poke 53252,x:poke 53253,y
  27.